! Indent and put up label
NewLine

#loc=#vpos$
#loch=#hpos$
cell static
#type=@this._TYPE
if #type="article"
  text local("Journal")&",  "
  set tabwidth -1 alignment right offset -3
  #cw=#cellWidth$
  
  newline -8
  cell static,local("Periodical")&",  "
  set tabwidth -1 alignment right offset -3
  #tw=#cellWidth$
  if #tw>#cw
    #cw=#tw
  endif

  newline -8
  cell static,local("Volume, etc.")&":"
  set tabwidth -1 alignment right offset -3
  #tw=#cellWidth$
  if #tw>#cw
    #cw=#tw
  endif

  MoveTo #hpos$,#loc
  hskip #cw+#cellSkip$
else if #type="in book"
  text local("Chapter")&",  "
  set tabwidth -1 alignment right offset -3
  #cw=#cellWidth$
  
  newline -8
  cell static,local(@tag)&",  "
  set tabwidth -1 alignment right offset -3
  #tw=#cellWidth$
  if #tw>#cw
    #cw=#tw
  endif

  newline -8
  cell static,local("Editor, etc.")&":"
  set tabwidth -1 alignment right offset -3
  #tw=#cellWidth$
  if #tw>#cw
    #cw=#tw
  endif

  MoveTo #hpos$,#loc
  hskip #cw+#cellSkip$
else if #type="unpublished"
  text local("Comments")&":"
  set tabwidth -1 alignment right offset -3
else if #type="vital records"
  text local("Storage")&",  "
  set tabwidth -1 alignment right offset -3
  #cw=#cellWidth$
  
  newline -8
  cell static,local(@tag)&":"
  set tabwidth -1 alignment right offset -3
  #tw=#cellWidth$
  if #tw>#cw
    #cw=#tw
  endif

  MoveTo #hpos$,#loc
  hskip #cw+#cellSkip$
else
  text local(@tag)&":"
  set tabwidth -1 alignment right offset -3
endif

! edit field with value
cell EditField
set Width -1 Height 64
if printing
  set minHeight 15
  sizetofit 3
endif
help local("Enter publisher details or other indicated information")
